json_files <- list.files(path = "data/", full.names = T)
første forsøg på et kort!
json_files %>% map_dfr(fromJSON) %>%
select(name, coordinates) %>%
unnest(c(name, coordinates)) %>%
unnest(c(lat, lon)) %>%
mutate(lat = lat + .01,
lng = lon + 0.01) %>%
select(lat, lng) %>%
leaflet() %>%
addTiles() %>%
addMarkers()